home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / gtswfeb.dxr / 00008_GTSLeaveGames,GTSReturnGames .ls < prev    next >
Encoding:
Text File  |  1996-12-05  |  4.3 KB  |  114 lines
  1. on GTSLeaveGames y
  2.   global GTSGamesMasterList, GTSButtonsSprite, GTSButtonCastNum, GTSbuttonCount, IFLgamesNameSprite, ADDADCOntTwo, IFLButtonList, ADDAdCount, ADDADvertSprite, IFLHeadInkList
  3.   forget(window "TRYGAME")
  4.   updateStage()
  5.   if y = 1 then
  6.     nothing()
  7.   else
  8.     puppetSound(0)
  9.     updateStage()
  10.   end if
  11.   repeat with f = 1 to count(GTSGamesMasterList)
  12.     set TwochangeSprite to getAt(GTSGamesMasterList, f)
  13.     if count(TwochangeSprite) > 2 then
  14.       setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  15.       setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  16.       setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  17.       setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  18.     else
  19.       setAt(TwochangeSprite, 2, 0)
  20.     end if
  21.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  22.     set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  23.   end repeat
  24.   set the locH of sprite 38 to 2000
  25.   set the locH of sprite ADDADvertSprite to 2000
  26.   set GTSbuttonCount to 0
  27.   if y = 1 then
  28.     set the castNum of sprite IFLgamesNameSprite to 17
  29.   end if
  30.   if y = 2 then
  31.     set the locH of sprite 1 to 2000
  32.     repeat with f = 1 to count(IFLButtonList)
  33.       set ThisTempList to getAt(IFLButtonList, f)
  34.       setAt(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  35.     end repeat
  36.     repeat with f = 1 to count(IFLHeadInkList)
  37.       set InkTempList to getAt(IFLHeadInkList, f)
  38.       setAt(InkTempList, 2, the ink of sprite getAt(ThisTempList, 1))
  39.     end repeat
  40.     repeat with t = 39 to 47
  41.       set the locH of sprite t to 2000
  42.     end repeat
  43.     set the castNum of sprite IFLgamesNameSprite to getAt(getAt(IFLButtonList, 7), 5)
  44.     set ADDADCOntTwo to 0
  45.     set ADDAdCount to 0
  46.     set the locH of sprite ADDADvertSprite to 2000
  47.     ADDLOADAdd()
  48.   end if
  49.   updateStage()
  50. end
  51.  
  52. on GTSReturnGames y
  53.   global GTSGamesMasterList, IFLButtonList, IFLgamesNameSprite, GTSHeadCastNum, GTSVisitCoverSprite, ADDADvertSprite, GTSSnapCover, IFLHeadInkList
  54.   if y = 1 then
  55.     repeat with g = 1 to 10
  56.       set the castNum of sprite IFLgamesNameSprite to the castNum of sprite IFLgamesNameSprite - 1
  57.       updateStage()
  58.     end repeat
  59.   end if
  60.   repeat with f = 1 to count(GTSGamesMasterList)
  61.     set TwochangeSprite to getAt(GTSGamesMasterList, f)
  62.     if count(TwochangeSprite) > 2 then
  63.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  64.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  65.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  66.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  67.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  68.       next repeat
  69.     end if
  70.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  71.   end repeat
  72.   if y = 2 then
  73.     repeat with f = 1 to count(IFLButtonList)
  74.       set TwochangeSprite to getAt(IFLButtonList, f)
  75.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  76.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  77.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  78.     end repeat
  79.     set the locH of sprite 1 to 325
  80.     set the locV of sprite 1 to 271
  81.     if y = 2 then
  82.       set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  83.       set the ink of sprite 1 to 36
  84.       repeat with f = 1 to count(IFLHeadInkList)
  85.         set TwochangeSprite to getAt(IFLHeadInkList, f)
  86.         set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  87.       end repeat
  88.     end if
  89.     if GTSSnapCover > 2 then
  90.       set the locH of sprite 38 to 2000
  91.     end if
  92.   end if
  93.   if GTSHeadCastNum > 0 then
  94.     set the castNum of sprite IFLgamesNameSprite to GTSHeadCastNum
  95.   end if
  96.   ADDAdvertBreak(7)
  97.   updateStage()
  98.   go("GTSgamesSection")
  99.   set the windowType of window "TRYGAME" to 2
  100.   set the rect of window "TRYGAME" to rect(the stageLeft + 412, the stageTop + 90, the stageLeft + 515, the stageTop + 195)
  101.   open(window "TRYGAME")
  102.   tell window "TRYGAME"
  103.     updateStage()
  104.   end tell
  105.   if GTSVisitCoverSprite > 0 then
  106.     tell window "TRYGAME"
  107.       set the locH of sprite GTSVisitCoverSprite to 52
  108.     end tell
  109.     tell window "TRYGAME"
  110.       set the locV of sprite GTSVisitCoverSprite to 53
  111.     end tell
  112.   end if
  113. end
  114.